home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2003-10_2003_CSW_Side_A.d64 / avaruus2 _jaffa (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  50 lines
  1. 50 poke53272,22
  2. 100 poke53280,0:poke53281,0:print"[147]";
  3. 1000 rem scrollerikoodi
  4. 1030 fort=0to3:read a$:c$=c$+a$:nextt
  5. 1040 sl=len(c$):forl=1tosl:b$=mid$(c$,l,40)
  6. 1050 print""+b$:gosub20000
  7. 1060 ifl=110thengosub20100
  8. 1070 ifl=237thengoto2000
  9. 1100 nextl
  10. 2000 gosub20200:print"":reada$:readb$:fora=1to52
  11. 2010 c$=mid$(a$,a,39)
  12. 2020 d$=mid$(b$,a,39)
  13. 2030 print""+c$
  14. 2040 printd$:ifa=39thengoto2050
  15. 2050 nexta
  16. 2060 print"                "
  17. 2070 print"               "
  18. 2100 print"":fora=1to52
  19. 2110 c$=mid$(a$,a,39)
  20. 2120 d$=mid$(b$,a,39)
  21. 2130 print""+c$
  22. 2140 printd$:ifa=39thengoto2160
  23. 2150 nexta
  24. 2160 print"                "
  25. 2170 print"               "
  26. 2200 print"":fora=1to52
  27. 2210 c$=mid$(a$,a,39)
  28. 2220 d$=mid$(b$,a,39)
  29. 2230 print""+c$
  30. 2240 printd$:ifa=39thengoto2300
  31. 2250 nexta
  32. 2300 print"[147] [213]niverse destroyed![160][208]eace on earth <3"
  33. 2305 print"[212][200][197][160][197][206][196]."
  34. 2310 poke53280,1:poke53281,1:poke53280,0:poke53281,0:goto2310
  35. 10000 data"                                        "
  36. 10010 data"[217][197][193][193][200]!!![160][196]ekadence is back again with another basic demo!!! [212]his de"
  37. 10020 data"mo is called **** [193][214][193][210][213][213][211][207][200][202][197][204][205][193][160][201][201] ****          [205]ade just in 2 ho"
  38. 10030 data"urs :)    by: [202]affa/[196]ekadence       ok, lets [194][197][199][201][206][160][212][200][197][160][212][210][201][208]!!      "
  39. 10100 data "[176][174]              "
  40. 10110 data "-[177][177]  [213][198][207][160][193][212][212][193][195][203]![160]"
  41. 20000 poke55296,2:poke55297,10:poke55298,3:poke55333,3:poke55334,10:poke55335,2
  42. 20010 return
  43. 20100 print"       [158][176][174] ii [176][174] [176][174] ii ii [176]-   ii":poke53280,1:poke53281,1
  44. 20110 print"[163][183][184][185][175][164] [156][171][179] [201][201] [171][179] [171][179] [201][201] [201][201] [173][174]   [201][201] [163][183][184][185][175][164]":
  45. 20120 print"       [159][201][201] :/ [201][201] [201][204] [173][189] [173][189][160][173]-   [201][201]":poke53280,0:poke53281,0
  46. 20130 return
  47. 20200 print"[147]"
  48. 20210 fori=0to100:poke1024+int(rnd(1)*1000),46:nexti
  49. 20220 return
  50.